home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / VBASIC / VBPIANO.ZIP / ABOUTBX1.FRM next >
Text File  |  1995-08-25  |  7KB  |  208 lines
  1. VERSION 4.00
  2. Begin VB.Form AboutBox1 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "AboutBox"
  7.    ClientHeight    =   4890
  8.    ClientLeft      =   1395
  9.    ClientTop       =   1725
  10.    ClientWidth     =   4965
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    BeginProperty Font 
  14.       name            =   "MS Sans Serif"
  15.       charset         =   0
  16.       weight          =   700
  17.       size            =   8.25
  18.       underline       =   0   'False
  19.       italic          =   0   'False
  20.       strikethrough   =   0   'False
  21.    EndProperty
  22.    ForeColor       =   &H00C0C0C0&
  23.    Height          =   5340
  24.    Icon            =   "aboutbx1.frx":0000
  25.    Left            =   1335
  26.    LinkMode        =   1  'Source
  27.    LinkTopic       =   "Form1"
  28.    MaxButton       =   0   'False
  29.    MinButton       =   0   'False
  30.    ScaleHeight     =   4890
  31.    ScaleWidth      =   4965
  32.    Top             =   1335
  33.    Width           =   5085
  34.    Begin Threed.SSPanel SSPanel1 
  35.       Height          =   4885
  36.       Left            =   0
  37.       TabIndex        =   0
  38.       Top             =   0
  39.       Width           =   4970
  40.       _Version        =   65536
  41.       _ExtentX        =   8758
  42.       _ExtentY        =   8625
  43.       _StockProps     =   15
  44.       Caption         =   "SSPanel1"
  45.       BevelWidth      =   3
  46.       Begin VB.Timer Timer1 
  47.          Enabled         =   0   'False
  48.          Interval        =   1000
  49.          Left            =   4320
  50.          Top             =   4260
  51.       End
  52.       Begin VB.CommandButton Command1 
  53.          Caption         =   "Ok"
  54.          Enabled         =   0   'False
  55.          Height          =   300
  56.          Left            =   1800
  57.          TabIndex        =   1
  58.          Top             =   4400
  59.          Width           =   1215
  60.       End
  61.       Begin Threed.SSPanel SSPanel3 
  62.          Height          =   1095
  63.          Left            =   1680
  64.          TabIndex        =   7
  65.          Top             =   240
  66.          Width           =   3015
  67.          _Version        =   65536
  68.          _ExtentX        =   5318
  69.          _ExtentY        =   1931
  70.          _StockProps     =   15
  71.          Caption         =   "VB MIDI Piano"
  72.          ForeColor       =   8421504
  73.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  74.             name            =   "Times New Roman"
  75.             charset         =   0
  76.             weight          =   700
  77.             size            =   18
  78.             underline       =   0   'False
  79.             italic          =   0   'False
  80.             strikethrough   =   0   'False
  81.          EndProperty
  82.       End
  83.       Begin Threed.SSPanel SSPanel4 
  84.          Height          =   255
  85.          Left            =   240
  86.          TabIndex        =   6
  87.          Top             =   1080
  88.          Width           =   1335
  89.          _Version        =   65536
  90.          _ExtentX        =   2355
  91.          _ExtentY        =   450
  92.          _StockProps     =   15
  93.          Caption         =   "Version 1.2"
  94.          ForeColor       =   4210752
  95.       End
  96.       Begin Threed.SSPanel SSPanel2 
  97.          Height          =   1815
  98.          Left            =   240
  99.          TabIndex        =   5
  100.          Top             =   1440
  101.          Width           =   4455
  102.          _Version        =   65536
  103.          _ExtentX        =   7858
  104.          _ExtentY        =   3201
  105.          _StockProps     =   15
  106.          Caption         =   "SSPanel2"
  107.          Begin VB.Image Image3 
  108.             Appearance      =   0  'Flat
  109.             Height          =   1635
  110.             Left            =   120
  111.             Picture         =   "aboutbx1.frx":030A
  112.             Top             =   120
  113.             Width           =   4140
  114.          End
  115.       End
  116.       Begin Threed.SSPanel SSPanel5 
  117.          Height          =   735
  118.          Left            =   240
  119.          TabIndex        =   2
  120.          Top             =   3480
  121.          Width           =   4455
  122.          _Version        =   65536
  123.          _ExtentX        =   7858
  124.          _ExtentY        =   1296
  125.          _StockProps     =   15
  126.          Caption         =   "SSPanel5"
  127.          Begin VB.Label Label2 
  128.             Alignment       =   2  'Center
  129.             Appearance      =   0  'Flat
  130.             BackColor       =   &H00C0C0C0&
  131.             Caption         =   "PO Box 28, Waterford, WI  53185-0028  USA"
  132.             BeginProperty Font 
  133.                name            =   "MS Sans Serif"
  134.                charset         =   0
  135.                weight          =   400
  136.                size            =   8.25
  137.                underline       =   0   'False
  138.                italic          =   0   'False
  139.                strikethrough   =   0   'False
  140.             EndProperty
  141.             ForeColor       =   &H00000000&
  142.             Height          =   225
  143.             Index           =   2
  144.             Left            =   30
  145.             TabIndex        =   4
  146.             Top             =   360
  147.             Width           =   4335
  148.          End
  149.          Begin VB.Label Label3 
  150.             Alignment       =   2  'Center
  151.             Appearance      =   0  'Flat
  152.             BackColor       =   &H00C0C0C0&
  153.             Caption         =   "Copyright ⌐ 1993, Arthur V. Edstrom"
  154.             BeginProperty Font 
  155.                name            =   "MS Sans Serif"
  156.                charset         =   0
  157.                weight          =   400
  158.                size            =   8.25
  159.                underline       =   0   'False
  160.                italic          =   0   'False
  161.                strikethrough   =   0   'False
  162.             EndProperty
  163.             ForeColor       =   &H00000000&
  164.             Height          =   195
  165.             Index           =   1
  166.             Left            =   30
  167.             TabIndex        =   3
  168.             Top             =   120
  169.             Width           =   4335
  170.          End
  171.       End
  172.       Begin VB.Image Image1 
  173.          Appearance      =   0  'Flat
  174.          Height          =   705
  175.          Left            =   360
  176.          Picture         =   "aboutbx1.frx":3F28
  177.          Stretch         =   -1  'True
  178.          Top             =   240
  179.          Width           =   1095
  180.       End
  181.    End
  182. End
  183. Attribute VB_Name = "AboutBox1"
  184. Attribute VB_Creatable = False
  185. Attribute VB_Exposed = False
  186. Private Sub Command1_Click()
  187.     AboutBox1.Hide
  188. End Sub
  189.  
  190. Private Sub Form_Load()
  191.     ' Center the AboutBox on the screen
  192.     '
  193.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  194.  
  195.     X% = sndPlaySound(App.Path & "\MIDPIANO.WAV", 3)
  196.     Timer1.Enabled = True
  197. End Sub
  198.  
  199.  
  200. Private Sub Timer1_Timer()
  201.     Screen.MousePointer = 11
  202.     Piano.Show
  203.     Timer1.Enabled = False
  204.     AboutBox1.Command1.Enabled = True
  205.     Screen.MousePointer = 0
  206. End Sub
  207.  
  208.